


DUDA (Carlos Eduardo Rocha Salvato) 
é um típico representante da geração “bytnik”” 
Com 14 anos de idade, move-se com desenvoltura no 
mundo da informática: 
compilou, adaptou, traduziu e elaborou os programas 
deste volume, sem prejudicar seus estudos no 1º colegial 
no Porto Seguro em São Paulo. 
Divertiu-se muito com esta tarefa, e espera que os 
leitores também obtenham o mesmo grau de satisfação 
digitando, aprendendo e usufruindo os 
programas contidos neste livro 
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APRESENTAÇÃO 


Uma coleção de programas não é uma simples 
coletânea de "joguinhos" ou eventuais aplicativos 
“sérios” apresentados na forma de listagem impres- 
sa em vez de fita magnética ou cassete, 

Assim, esta coleção representa uma maneira 
econômica de aquisição de software, embora não 
seja esta sua única e principal utilidade: ao digitar 
um programa linha por linha, passo a passo, o 
usuário acaba, pois, absorvendo de maneira cons- 
ciente (e, às vezes, até subliminar) vários e impor- 
tantíssimos truques de programação. 

Se alguém quiser se tornar um bom escritor, 
deve começar por ser um ávido leitor; de maneira 
análoga, -o hábil programador normalmente forma- 
-se digitando, decifrando e adaptando programas 
impressos. 

O material é farto e, com certeza, trará muito 
proveito em termos de desenvolvimento pessoal, 
além, obviamente, do prazer causado pela utiliza- 
ção dos programas em si. 
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PALITOS 





Este é um jogo que exige muito raciocínio, pois seu adversário será o com- 
putador, Logo após ter digitado “RUN”, aparecerão no vídeo 17 palitos: você 
deverá tirar de 1.a 3 palitos. Ganha o jogo quem tirar o último palito. 


Caracteres Gráficos: 


Linha 1040: E] =CHR$(133) 


Memória usada: 2100 bytes 








na 


DUAMAMI 


Ega 









E DUMPHNDD ni 






TE CNEU LINE>* 
HEN GOTO la30 


A PALITO.” 








NGEU.» O 

"DESEJA JOGAR 

S* THEN RUN. 
* THEN GOTO 





148 





- sao Goro 1400 

1440 PRINT AT 11,21; 
Q STO 

- 1468 SAVE “PALITOS 
RUN 
1460 STOP 
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Este é um programa educativo, que ensina as crianças a efetuar adições. Seu 
aspecto interessante consiste no fato de elas não se limitarem apenas ao cálculo, 
mas também optarem pela resposta certa, pois trata-se de um teste de múltipla 
escolha, 


Caracteres Gráficos: 


Linhas 60 e 140: Rã =CHR$ (128) 
Linhas 80, 100 e 320: 0 =CHR$(5) 
Linha 160: [2] = CHR$ (143) 

Linhas 170 e 280: BA = CHR$ (8) 
Linhas 180 e 330: E = chars q 
Linha 200: PR] = CHR$ (10) 














Memória usada: 1581 bytes 
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909020 909900900n0, 
999995608 900 656) 
3090 909090905. 
3000000904 


Neste jogo você é representado por uma pulga que está passeando sobre um 
cachorro. Este sofre de uma doença que faz com que seus pêlos caiam e formem 
buracos, os quais você deverá saltar para continuar seu passeio. 


Comandos: 


7 — para saltar; 
5 — para a esquerda. 





Caracteres Gráficos 





Linhas 60, 70 e 180: CH R 8 (128) 


Memória usada: 628 bytes 
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Você está em plena Segunda Guerra Mundial e precisa atravessar rapidamente 
um campo minado para transmitir pelo rádio uma mensagem referente aos planos 
do inimigo, 

Seu maior problema é não poder voltar, porque um segundo de atraso poderá 
custar centenas de vidas, inclusive a sua. 


Comandos: 

6 — diagonal para baixo; 
7 — diagonal para cima, 

Caracteres Gráficos: 


Linhas 1080 e 1320: m =CHR$(136) 
Linhas 1110e 1240: [8] = CHR$(141) REGULAR Came 





Memória usada: 2075 bytes 
/ REM PokE rés m/s 








EGR 1983 





o o 
RND+22) INT É 











CAMPO MINADO 
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T 
1280 
ADO. 


ES 
“TRUIDO” E 
PRINT AT 11,8; NO CAMPO MIN 


1370 


IF K=6 THEN Goto iais 
PRINT AT PT; "Bo 
LET P1=P 


NEXT 7 
PRINT AT 19,2: “VOCÊ SRIU IN 


PRINT AT 11,5, “DO CAMPO MIN Ê 


PAUSE 152 


EXT R 
PRINT AT PAT; " 
RINT AT 16,3; “VOCÊ FOI DES 


LET 53=5+1 

PAUSE 150 

CLS ne 

LET AS="5" 

IE 5S=1 THEN LET B$=". 

PRINT AT 10,8; CVUOCE ESERRRO 


HM “;S;0 MINA 


à LET D=H- (525) 


AT 15,0; “SEU PLACAR E 
ONTOS* 


era 


B 
1460 PRINT AT 18,5; DESEJA JOGAR 
DE NOVO 2º 


IF INKEYS * THEN RUN 
IF INKEY$='N' THEN GOTO isa 


goTo istea 
RUN 





Cs 

PRINT AT 10,12; “GER 
STOP : 
SAVE “CAMPO MINADE 
RUN : 
STOP : 


LES» 
da 


na sl =" 
as 
gro a 


= ad “o qe 


4 
LM 4 


LÁ | 


e 
pm 


ARTES VISUAIS 





Este programa gera desenhos aleatórios no vídeo. 

Estes desenhos têm uma simetria exata, fazendo com que o desenho aleató- 
rio se transforme em verdadeira arte visual. 

As figuras se repetem de forma hipnótica, formando um display contínuo, 


Memória usada: 781 bytes 
dom: 


B REM C-MICROMEGA 1983 
! 10 LET X=PEEK 16996+256+4PEEK 1 
POBL dean es e 





Se LET ESRND 
68 For N=8 TO 11 E E 
70 IE ERND:D THEN cosus aos E 
- 88 IF RND+<E THEN GOSUB 398 | 
92 FOR +1 TO 2D4-N STEP 2 | 
110 POKE X+I+33N,A : 
3 Cd .8 


F4324N TO 7590-342N 5 






o E Ba 
166 POKE XiTiSS.B 
186 FOR I=24-N TO N+1 STEP -2 
1906 POKE X+1+759-55*N,A 
286 POKE X51+758-534N,B 


Y/ 


q 


É NEXT To. : CR 
| po FOR I=727-322N TO 34+543N 5 
TEP GS Ro 

230 POKE X+I,A, 

24 POKE X+1-553,8B 

| BSO NEXT TI. | 

NEXT ON : 

| 278 FOR I=1 TO 100 

BBB NEXT IT a O 
290 GOTO 30 : 

Q LET ASINT (RNDI8) +12SSINT f 








. sa 
RNDSBI : 
916 LET B=INT (RND+*5) +125+*INT € 


— RNDI2) 
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Você está no meio de uma cidade de gigantes onde existe muito ouro. Este 
ouro irá ajudar a resolver os problemas da dívida externa de seu país. Mas os gigan- 
tes já o descobriram e estão em seu encalço. Você só tem quatro saídas e deve fugir 
rapidamente, porque os gigantes se tornam cada vez mais numerosos, impedindo 
sua saída e acabando com a sua vida. 


Comandos: 

5 -— para a esquerda; 
6-— para baixo; 

7 — para cima; 

8 — para a direita. 
Caracteres Gráficos: 


Linha 70: CHR$ (8) 


Memória usada: 1634 bytes 
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A primeira parte deste programa está em linguagem de máquina: digite inicial- 
mente o programa nº 1 (fig. 1), sendo que a linha 1 REM deve conter 20 “zeros”. 
O endereço inicial é 16514. Insira a listagem da figura 2 e apague a seguir o progra- 
ma 1, deixando apenas a linha 1 REM, e digite o programa 2 (fig. 3). 















































OS Odo, 
od: 
2005 0% 
PoSoSoSodo dos 
PoSSEScoS OS So 
POSOBOSOSa 0 0000000. 
BOSO 0000000 00800000 6% 
000004 
Poa 
Podes 
3 








Vamos ao jogo: 





Você acaba de entrar num cassino em Las Vegas. 

Apesar de você estar bem vestido e com muita saúde, você só tem US$ 5,00. 
Você deve arranjar US$ 100,00 para conseguir comprar uma passagem de volta para 
casa, 

Para conseguir isso, você decidiu jogar na máquina caça-níqueis. 

BOA SORTE... 


CAÇA-NÍQUEIS 
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Memória usada: 5287 bytes 





26 27 





28 29 








PRI 

RAN usR josas 
Ra, 

O NEXT N 

E CENREY s=" o" finda o To 187 


























LE 
PALAVRAS 
CRUZADAS 


30 


INTRODUÇÃO 


Este programa tem como finalidade treinar o vocabulário do usuário, ao mes- 


mo tempo que pretende diverti-lo. 
É diferente .das palavras cruzadas tradicionais. Neste, você terá que dispor 


as palavras sem auxílio das chaves de palavra. 


Exemplo: Dado uma tabela formada por 4 linhas e 4 colunas (fig. 1), podemos, 
a partir dela, montar. palavras cruzadas de modo a obter, tanto na horizontal 
quanto na vertical, palavras que possuam significado gramatical (fig. 2 e 3); 
sem o auxílio das chaves de palavras. 
























































ABCD (colunas) ABCD 
Linha À [|] A [ClEINTA A 
Linha B B joflajm B 
Linha C c ILJAÍTIA c 
Linha D [] D |ABHA|rR] D 
fig. 1 fig. 2 
MONTAGEM DA TABELA 


A tabela não é pré-estabelecida. Você a monta como quiser, e a partir daí 
começa a compor as palavras na tabela. 

O TK perguntará quantas linhas terá sua tabela, Você poderá, por exemplo, 
digitar “9” (poderá digitar no máximo 15 linhas) e newline. Em seguida, perguntará 
quantas colunas terá sua tabela. Você poderá, por exemplo, digitar “11” (poderá 
digitar no máximo 26 colunas) e newline, 

Então no seu vídeo aparecerá a seguinte tabela: 


ABCDEFGHIJK 





-ronmoouw » 


fig. 4 


A partir desta tabela, você determina onde terá espaços vazios ou cheios. 
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Exemplo: Suponhamos que na tabela da figura 4 desejemos a seguinte configuração: 


ABCDEFGHI JK 


psi, 









































-ronmoomwps 


























m 


Para obter os espaços vazios, digitamos "'()"' e para os cheios, "1". 
Assim, o computador lhe perguntará: 





fig. 5 


-> qual a configuração da linha A? 

Você deverá digitar “100000100DO" e newline, 
-—> qual d configuração da linha B? 

Você deverá digitar "'ODMOMDMNDDO" e newline. 


> qual a configuração da linha C? 
Você deverá digitar “OD 10MD IDO" e newline. 


E assim sucessivamente, até a última linha. 
Note que você, em cada linha, digita 11 algarismos, que correspondem ao 
total de colunas. 


MONTAGEM DAS PALAVRAS 


Na montagem das palavras, adotamos os seguintes critérios: 
-—> quando você introduzir uma palavra na horizontal, deverá digitar ““H” antes dela. 
-—> quando você introduzir uma palavra na vertical, deverá digitar “'V” antes dela. 


-—> se a palavra começa na linha A com a coluna B, você deverá digitar “AB” antes 
do“H” ou “NV”, 


Exemplo: Na figura 5, suponha que vamos introduzir as palavras calor, camareira, 
sim e pisca, conforme a figura 6: 
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ABCDEFGHIJK 







































































a cial cloJr 
BL A 
cl qm 
DÍ JA | 
ELIR P 
FLIE Ss O E 
eli S 
HDIR c 
DIA A 
fig. 6 


Note que calor começa na linha A com a coluna B e está disposta na horizon- 
tal, Então, para introduzi-la na tabela digitamos “ABHCALOR” e newline. 


Para introduzir a palavra camareira digitamos “ABVCAMAREIRA” e newline, 


Para introduzir a palávra pisca digitamos “EGVPISCA” e newline. 
Para introduzir a palavra sim digitamos "FFHSIM” e newline. 


Memória usada: 3423 bytes 
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RINF AI 21,0; 
A? (sm 


E 





170 PRINT 
CENHAS O 


» DIGITE 
DIGITE 


DIGITE A 


parar q 


 CorIaR 
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ocasiao 
CE, Fest) 








Uma lebre ( | ) está numa margem do rio sendo perseguida por uma rapo- 
sa ( [%] ) e deve passar para a outra margem a fim de se esconder em sua toca. 
O rio pode ser atravessado num salto ou pulando no casco de uma tartaruga 


(ll à 


Comandos: 





— 1 salto para a direita. 

— 1 salto para a esquerda. 

— 3 saltos para a direita. 

— 3 saltos para a esquerda. 

pula aleatoriamente para baixo 3, 5 ou 7 saltos. 
— 2 saltos para baixo. 

— volta 2 saltos (para trás). 

— para diminuir o grau de dificuldade. 

— algum lugar na mesma linha. 


IZUCcrp>puno 
1 


Memória usada: 3606 bytes 
Caracteres Gráficos: 


Linhas 140, 240, 549, 560, 590, 600, 620, 640 e 800: BB - curse) 
Linhas 280, 390 e 400: | =CHR$ (128) 

Linha 310 = CHR$(132) + CHR$(7) 

Linha 430: [4] = CHR$ (151) 

Linha 510 = CHR$(131) + CHR$ (128) + CHR$ (130) 

Linha 1140: HM = ceras 123 

Linha 1150: [M = CHR$ (6) 
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J|- 
(00 E (o) 
ON 
ON 


(49) 


N 
(42) 
m 


q 










































































É 
O» 
a 
E 
[8] 
E 
Eu 
A 
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Este é um programa didático, que ensina crianças a efetuar subtração. A crian- 
ca deverá sempre subtrair o número menor do maior. 
Para ajudá-la no vídeo o número é representado em asteriscos. 


Memória usada: 1555 bytes 
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E TIRO AO DISCO 





Você é um milionário que está praticando tiro ao disco em sua fazenda em 
Mato Grosso, e o seu mordomo está lançando os discos para que você os acerte. 
Mas como o seu mordomo é novo, ele não sabe que deve dar um tempo de 1 minu- 
to entre cada disco. Por este motivo, os discos virão um atrás do outro e você terá 
que ser muito bom para acertar todos eles. 


Caracteres Gráficos: 


Linhas 1070 e 1090: [e =CHR$ (131) 
Linha 1070 = CHR$ (129) + CHR$(8) + CHRS$ (130) 





Memória usada: 1468 bytes 
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Você já pensou em disputar uma corrida com seus colegas? 

A resposta a esta pergunta obviamente deve ser sim, mas esta é uma corrida 
bem diferente: nela não é preciso fôlego, mas sim um bom conhecimento mate- 
mático, pois para poder se movimentar, você deverá acertar o resultado de uma ope- 
ração proposta pelo microcomputador. Se você o conseguir, poderá se mover; casu 
contrário, ficará parado, correndo o risco de ser ultrapassado. 


Caracteres Gráficos: 


Linhas 1130, 1180, 1280, 1330 e 1380: sa =CHR$ (8) 
Linhas 1210, 1280, 1330 e 1380: [x] =CHR$ (151) 


Memória usada: 1555 bytes 





46 47 


CALORIAS 








Este programa é muito útil para quem quer fazer regime, porque calcula quan- 
tas calorias aproximadamente você pode comer por dia; a partir desta indicação, 
você poderá fazer um regime adequado às suas necessidades. 


Memória usada: 2000 bytes 


DRREM E-MICROMEGA 1983 
=.425 


1098 LET 
1910 LET D=.725 
1928 LET E=.50: x 
1038 LET F=.167 
LET G-=.442 E É 
1959 LET H=. 151 E 
peso PRINT ,, "QUANTOS ANOS UV. TE. 
INPUT & 


1056 PAINT “OUAL Eº O Seu sexo 2 
1198 Input 55 . 
jiao PRINT “OUANTOS KILOS VOCE P 
2190 INPUF I . 
150 PRINT “ouAL E* A Sus airuns 


3 

EM CM. o" 
2160 INPUT 
1170 


PRINT J É 
1180 IF S$="F“º THEN GOT6O 1216 
LET M=ExIs*CeJrsD/KeFF 
l2ea GUTO 1220 


2 
1216 LET M=GrIs*CrUrsD/KEsH 
1228 PRINT “| SUANTAS HORAS U. DOR 


INT E E 
1254 PRINT “QuanNTAS HORAS DE REP 
OUSO UV. TEM?” É 
1260 INPUT D 
1278 PRINT D É 
1286 PRINT "OUANTAS HORAS LU. TEM 
DE. TRABALHO LEVE POR DI 


A 

1290 INPUT E 

1304 PRINT E 
21310 PRINT “OUANTAS HORADS U. TEM 
ação o TRABALHO MEDIO POR D 
13290 INPUT F E E E 
1338 PRINT F A E 
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50 





isao PRINT “QUANTAS HORAS U. TEM O 
2 sa TRABALHO PESADO or A 


135 Eu e : o 
Rail e qu 
ne +D+E+F +G TREM soro 















Ar ei, Vs "DESEJA 


is = us THEN RUM 
IF NREVS= ne cao F 






1520 PninT ar d4, as; 
: És Save “CRLORTAR: 








CONTAR 
ESTRELAS 






Este é um programa educativo, servindo assim para crianças. 

Ele ensina as crianças a contar. 

No vídeo aparece um número aleatório de asteriscos, que deverão ser conta- 
dos pela criança. Logo após a criança digitar o número que ela julga ser o correto, 
o computador irá contar os asteriscos e dirá se o resultado apontado está correto. 


Memória usada: 1491 bytes 























ogBsEM C-MICROMEGA 1955. 
1006" RAND. : : 
iBio BRENT AT 1,6. “VOCÊ SABE con 


TAR 2. 
iopa LET R=INT teND ais +53 
i9sa BRENT e É Ee 























1666 NEXT I o ; : 
qJeza PRINT Gu 
* jos6 INPUT A : TD 
isso SE ar 14,0;"SUA RESPOSTA. 


ERA QUE E) RESP CaER. 




















| 1120 FOR I=i TO o 
1150 PRINT AT 6, or cd 
 1idQ PAUSE SO E 
1150 PRINT AT 6. (SAR=T: DER e 5. 5 E 


Gs 
1160 PAUSE. ,sº 
Ziza NEXT 


- 1180 IF. Ea THEN cota 5 à 

E a &r 1976: pd 
1280 GOTO 1226 Ro. E ; 
1216 PRINTAT 17,4: "HMEREEREREIS 

E E Ee 

E CLS. 

E ieie 
1266 Snse “contar ESTRELAR 

a Tese Esse 
























































) 


LETRAS 
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Este é um jogo muito antigo, que consiste em colocar as letras na seguinte 


























disposição: 
SE c 
eElriGg 
VIJIK|L 
E 
MIN 3 | 





Após você ter conseguido pôr as letras nesta ordem, o computador revelará 
o número de movimentos executados para a realização da tarefa, 


Memória usada: 2316 bytes 
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ESPERANDO 
O INIMIGO 





Neste jogo você é um exímio armador de bombas e deve armar o maior núme- 
ro possível delas contra o inimigo que está avançando. 
Você deverá ativar dois tipos de bombas: 
1 — bombas que serão deixadas logo atrás de você. 
(Estas estão com defeito e você não sabe disso. A falha consiste em cada vez 
que uma bomba grande é ativada, as demais entram em uma reação em cadeia 
e explodem, Entretanto, esta explosão não irá afetá-lo, a menos que você 
esbarre em alguma delas.) 
2 — bombas distantes; você deverá caminhar até elas para ativá-las. 
(Essas são as bombas de grande porte.) 
Existe ainda um terceiro tipo de bomba, mas este foi colocado pelo inimigo. 
Você está rodeado por essas bombas que podem estragar sua missão. 
Atenção: você só pode esbarrar nas bombas não ativadas (X). 
Por isso, acerte o passo. 


Comandos: 
5 — para a esquerda; 
6 — para baixo; 


7 — para cima; 
8 — para a direita, 


Caracteres Gráficos: 


Linhas 470, 490 e 510: | = CHR$ (128) 


Memória usada: 2739 bytes 
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SUBMARINO 


Neste jogo você deve acertar quatro submarinos estrangeiros que invadiram 
as águas territoriais brasileiras. Para acertar os submarinos você conta com um avião 
brasileiro, que está sobrevoando o oceano Atlântico, para lançar mísseis aéreos 
contra os submarinos estrangeiros. 

Você é um homem-rã que possui um aparelho capaz de enviar ondas de alta 
frequência, que atraem o míssil lançado pelo avião. 

Se o míssil lançado não atingir o submarino, ele será automaticamente desliga- 
do sem causar nenhum problema a você e ao aparelho de ondas de alta frequência. 


Comandos: 


5 — para a esquerda; 
8-— para a direita; 
O — para lançar mísseis do avião. 


Caracteres Gráficos: 


Linhas 1060, 1200, 1400 e 1530: BM = cHas (128) 

Linha 1120: [>] = CHR$ (148) 

Linha 1190 = CH R$ (128) + CHR$ (168) + CHRS$ (128) 

Linha 1230 = CH R$ (128) + CHR$ (137) + CHR$ (136) + CHR$ (137) 
+ CHRS$ (128) 

Linha 1520: BM =CHR$(8) 





Memória usada: 2455 bytes 





x 
2126 PRINT ET O. E 
158 IF x=23 THEN PRINT AF 8.25; 
21160 LET Ni=NLeLINKNEVE-VES) - LINK 
EX $G=05 "5 a 


61 


62 


pro 


11686 : 
É oa ER RT 28.RI: E : 
+ = Venb THEN PRINT OT Udo: 


 2ESO LEFT Ustici 


Er 
CET E 
—  aBEINT 640) CiUeS= INT Gem) 
— ABRO TP Nt=9 THEN PRINT AT 


1ão6 IE Hc=9 THEN PRINT AT H.6' 
; as IF H>=10 THEN eazNT AT A. 
jãs  LEFG=seNS : 


3! 
* 1630 LET V=B 
 1E4S Ê 

eo PRENT HT BMX: 


120 IF X1cO THEN LET xice 
TE Ki O MEN LET Ri=ES 


1508 LET V=INT U-Vetu=2a) +E9E tus 

jase PRINT AT WU: r o É 

3 TE U-D6 THEN PRENE RT uso: 

2 ZE INKEY$SDOU THEN LET H=1 0 

ZE N=) THEN GOTO 15608 RA 
RGsxI-a 

ET Z=RES xo o 
RES V>Z THEN LET Z=RES Wo 
Fsrtas ERR E 

FR= st) ciU-INT Gem) eu 


ineo 
E 
















1560 IE FRI=2 THEN Coto ss 


E 


E W5=36 THEN PRINT AT Hot 








1450 LET H=HeY JE , 
460 IF FcZ-1 THEN SOTO 1090 
qo LET H=S cc 
1456 LET 6-8 : 
ja96 LE Hs 
1508 LET Cs 
4616 LET F= 
1515 Goro à 
BI? LET nETSsnTISeI 
ijo FOR N=1 TO 28 
RENT mos 
E o ss a 
12: CHA& HITS 


159 : o : 
INT AT 21.12: 

leio SE NL Bls6o THEN GOTO 1680 | 

cas LET FR=SO cc 






660 LET K=X+INT É 0 





je78 Goto 140 
4886 CRINT RT 21.8. “PARRA JIGAR E 
E. NOMES E Rm no 
ZASO INPUT AS 
1200 CLS E 
718 RUN o 
ires STOR é 
SB SAVE COUBMHAR INES 
Rad RUN, 








TESOURO 
ALIENÍGENA 





Você é um mineiro do espaço, recolhendo com sua nave (83) asteróides (3 ) 
e meteoritos ( e |), Cada asteróide representa 10 créditos e cada meteorito, ape- 
nas 1, Um deles esconde um valioso tesouro alienígena que você está tentando en- 
contrar. Uma nave alienígena (9), porém, está tentando destruí-lo. 

Cuidado, pois ela é mais veloz do que você. Sua única salvação é ativar a hi- 
perpropulsão, desaparecer no espaço ordinário e reaparecer num ponto qualquer 
situado na mesma coluna. 

O tesouro também tem um dispositivo automático de salto no hiperespaço. 
Toda vez que ele detecta sua aproximação ele também salta, escondendo-se em 
outro asteróide. A única maneira de não se ser detectado é recolher o asteróide no 
momento em que você está voltando de um salto no hiperespaço. 


Comandos: 

5 — para a esquerda; 
6 — para baixo; 

7 — para cima; 

8 — paraa direita. 


9: muda a posição aleatoriamente sem mudar a coluna. 


Caracteres Gráficos: 


Linhas 140, 380 e 420: | = CHR$ (128) 




















Linha 180: [8] = CHR$ (151) 
Linha 210: | * id 
Linha 250: =CHRS$ (156) 
Linha 260: es 


Memória usada: 2366 bytes 
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io DE em ug, E 

140 B Ea z E 
O TE Ico OR JSô THEN coTo aom 

0188 | ze NOT RND<-85 THEN GOTO 19 


1zo LET Hesri J+11=20 
Ar É, E É 
í THEN soro. asso 
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Este programa vai exigir, para sua digitação, muitas noites de inverno. 
A primeira parte está em linguagem de máquina e a listagem dos códigos deve 
ser carregada pelo programinha 1 (fig. 1). 


1 REM NESTR LINHO DEVERRO SER 
IGITADOS 24tê “ZERO 

12 PRINF QUAL EF A MEMÓRIA IN 
ICIAL 2” 

2B INPUT A o 

Sa FOR B=A TO Arssee 

4a SCROLL 

56 PRINT TAB S/A; "==>" 

6a INPUT 

Z2 EE Bi255 THEN Coro sa 


FIG:t o 


A linha 1 REM deve conter pelo menos 2 400 “'zeros'! Esta rase é cansativa, 
e aconselhamos realizá-la de uma única vez e depois salvar em fita. 

Ao transferir a listagem do código de máquina (fig. 2) para esta linha REM 
com o programa 1, usar como primeiro endereço 

16514 
Havendo algum erro na digitação, brecar o programa com STOP; digitar 
GOTO 10 

e dar como endereço inicial o último digitado corretamente. 

NUNCA USAR EDIT NA LINHA 1! 

Salvar em fita e, após um merecido descanso, apagar o programa 1, deixando 
apenas a linha 1 REM, agora toda cheia de símbolos estranhos. 














16514 255 16515 255 16516 S 
LBV so 165185 105 165198 5. 
16550 ire 16521 65 16522 119 
28525 S 46524 159 16525 148 
16526 6 16557 197 16525 55 
iss=o 5 16556 115 16551 115 
16552 145 16555 105 16554 58 
16555 90 16556 258 165% 4 
16555 15 16559 à 16546 15 
16541 52 16542 201 15545 129 
16544 120 16545 145 16545 119 
16547 39 16545 95 155465 2598 
16559 16551 15 16552 4 
16655 15 16554 52 16555 207 
I6SD6 155 1855? ido 16555 56 
eh 16559 50 16560 175 16561 259 

16562 3 16555 16564 4 n 

DE VOO 16565 Se 16565 261 16557 55 (1) 
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a (5) 09 + TO Up TO 
99 


pa 
“no 
oa 
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Dos. 


17 
as 


ssa 
DES 








nm 


72 





73 


17786 71 isras S 








17615 291 17614 195 ires 130 

17516 126 17517 56 izeso O 

17619 S4 175290 55 izees 112 

a2622 292 17525 65 172298 2801 

17625 150 17625 64 iv8e1 79 

176258 252 17629 65 12864 48 

17691 254 17652 255 17807 255 

17654 11 17555 55 az819 237 

172637 111 17555 35 172813 64 

17540 2095 17641 2495 17816 105 = 

17543 225 17644 24 17815 186 17 

17546 S4 17547 152 izaBB 2BS 12 

17649 2553 17650 265 izses sas lr 

12655 68 17555 257 17828 125 17 

17555 257 17656 55. - 17851 155 17 

17655 64 17559 201 17834 11 17 

17561 9 17662 ES 12837 275 17538 16 17850 Es 

17664 155 17665 257 12840 9 12841 78 17542 6 

17567 Sá [7662 DE 12845 O 17544 55 17845 55 

1+676 297 ir571i 175 172846 297 iySd? 175 17545 28 

irero eSv 17575 55 azséo 74 17856 17851 & 
17852 2iS 178553 197 17854 20 
17855 22 17656 59 17557 Sos 
172858 265 17555 215 17560 E= 
17561 205 17852 211 17555 56 
17564 195 17865 299 17566 26 
17867 11 17568 70 17865 55 
iza7e 97 12571 178722 ES 
12875 184 lr974 2901 17575 86 
17576 105 Ilç2o7? 1? 12578 16. 
az879 39º 17580 205 176851 S 
172852 76 17855 SO 17554 95 
17885 Bá 17555 17 17557 252 
27888 S 17889 205 17699 6 
17891 28 17592 59 17595 94 
iz894 64 17695 1? 17556 lou 
izes? q 17895 Bos 17895 & 
1zoB0 70 17901 SG 17902 95 
izse3 64 17964 1> 17965 ie 
17506 6 1758907 295 17965 9 





12757 2zo 
ivres sos 





12765 & 17939 2Q1 iz940 245 
12766 68 22." Ao 17945 77 1729453 69 
12769 DS 177728 Je: 17945 12 17945 6d 
API? 145 17775 265 179458 D41i 17945 71 
17725 DAS 12775 15 : 17951 12952 17 
17275 48 Ir7ro Sa 17954 17955 167 
izzsi SS | 2:82 Sos 17957 121 17955 32 


Ceres 1 1Z7ES ITE 


17960 2053 
17963 1 
17966 1657 
17969 7. 





EC hd add dO! 
RR 








q 


: E E 
18119 12 
i8iBa 251 





fa fofo no tono 
“EE A) DD OC ad = =cd QT A 


OI OMBN ER mENNo MLS JRR fede Roo RARO 





er 
g 


sis DO 











mo 
n 
fo 
H 
ty 
jul 
e 
[6 





» 

n 

a 

A 
"ooshs0 miau 
; COnivm 





ja 
[ui 
[E 
rod 
Há 
a) 
a 
a 


GR 





maps pa foro io 


safe) ca) e) sofa] af os] cabia] e] ads 


A fá pá fai pp papa pa pê 
Ta nó! 






ONGS ONA 
fin 
ou 


7 


78 


18528 


2 
ss 
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so 






15555 215 . 


15555. 


o ão 
18592 158 
15895 99 


199909 64. 
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Completar o programa digitando o programa 2 em BASIC (fig. 3). 

Com a fita totalmente gravada, vamos brincar: 

Inicialmente o programa pergunta se queremos o vôo completo ou apenas a 
fase de aterrissagem. Aconselhamos os “manicacas” a se limitarem almente à 
aterrissagem. Por maior motivo, ao serem questionados se desejam ou não os efeitos 
do vento, aconselhamos responder “Não”. ; . 

Ao começar o programa, inicialmente temos uma visão do interior da cabine. 
Pelo pára-brisa, vemos a linha do horizonte. Puxando o manche para trás (com 
joystick ou com a tecla 6) vemos o horizonte descer, pois o nariz do avião está 
apontando para cima, “ . 

Da mesma forma, digitando 7 fazemos o nariz baixar e vemos O horizonte 
subindo, O nível do horizonte está indicado num medidor. de horizonte num mos- 
trador à esquerda. Cuidado, pois este instrumento tem um pouco de inércia, Usando 
as teclas 5 e 7 fazemos o avião se inclinar para a esquerda e para a direita, Obvia- 
mente veremos o horizonte se inclinar ao contrário, pois o referencial está fixo na 
cabire e não na terra. . 

Abaixo do mostrador de horizonte temos o indicador de combustível, cuja 
indicação não é crítica quando escolhemos apenas a fase de aterrissagem, ma que 
se torna um grande fator de angústia quando o vôo é longo e estamos perdidos. 
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À direita temos o indicador do regime de rotação do motor. Digitando P 
(de forma contínua, pois todos os controles são do tipo INKEY$), a rotação au- 
menta, aumentando a velocidade indicada logo à esquerda em km/h e, obviamen- 
te, o consumo de combustível. Digitando O, o regime diminui (cuidado para não 
perder a sustentação). 

O altímetro indica a altura em metros e sua marcação pode ser alterada levan- 
tando-se ou baixando-se o nariz do avião, Cuidado que, ao perder altura, o avião 
ganha velocidade. 

Digitando F, o flap é abaixado, aumentando a sustentação em baixa veloci- 
dade (aterrissagem) e digitando D, o flap é retirado. Dar flap em alta velocidade 
produz desastres. 

Para abaixar ou levantar o trem de aterrissagem basta digitar G. Antes de 
aterrissar verifique o mostrador do trem ao lado do de flap para não correr o risco 
de raspar a barriga na pista. 

No lugar de honra do painel temos a bússola, que mostra o rumo do avião, 
À direita da bússola temos o rádio goniômetro, que indica o rumo (em graus) e a 
distância (em km) até o radiofarol do aeroporto. Este rumo é mostrado também 
de forma analógica pelo mostrador circular com modelo de avião. 

Se digitarmos M (mapa), a cabine desaparece do vídeo e em seu lugar vemos 
o mapa da região. No alto à esquerda continuamos tendo acesso à leitura do rumo 
do avião. O avião e o radiofarol são representados como pontos piscando. Queren- 
do fixar-se o sistema de navegação em um radiofarol situado em outra cidade, 
basta digitar B até que a cidade escolhida fique piscando. Em vôos longos isto pode 
ajudar. 

Digitando V novamente voltamos para a cabine e vemos no rádio goniômetro 
o rumo e a distância em relação ao novo radiofaro! fixado. 

Se o avião bater contra o solo ou contra os morros indicados no mapa, haverá 
um quebra-quebra e veremos o relatório do acidente para nos orientar nas próximas 
tentativas. . 

A fase final da aterrissagem é a mais emocionante e lembra os velhos tempos 
em que a maior preocupação do piloto era de não deixar o cachecol embaraçar-se 
na hélice. 

Com o vídeo mostrando a cabine, digitar V: se a distância até o aeroporto 
for suficientemente pequena, ele aparecerá em perspectiva e a habilidade do piloto 
não dependerá mais tanto dos instrumentos. Apesar disto, ainda são visíveis o cen- 

tralizador de descida, o velocímetro e o altímetro. 

Se nesse momento você se lembrar do trem de aterrissagem, é só digitar V 
novamente que o painel da cabine volta a aparecer. 

Em pouco tempo você se tornará um hábil piloto, tanto visual quanto em 
vôo por instrumentos. 


Memória usada: 16000 bytes 
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q 
fed 
o 
dr 


8 
gm 
E 
o 


bu) 
[8] 
a 
c 


DUUN<LIDO 
Enadadiod iod Ema 


DODOODIDIINDITODODANNO NH nana! 


Am ms me RIR mm mm nana 


UDUUDIDDDDU 
om ARARAS RAR 


Bismmema 
nd: 


506 LET C(20)=RECOS A 

1 COMP esco me e 
ES PODRE 16519, INT (T-2581 

. 380 nal o a E 





Urnbrm 
Ca pr 
joe 
e 


ta 
fo] 
[e 
r 
o 
+ 
j 


10 
gi 
SD) 
o 
im 
o 


 sovo | so 
"CTSUSR 17166 o 
IF C(S) c6 THEN GOTO 30 
S IF C(19) 4X tBN)>7.5 AND 
DO THEN GOTO 3020 | e 
IF C(2) +2*C(7] <9D THEN 
ia (7) 4C (2) + 1200 THEN 
40 PLOT C(im),C(11) 
3345 LET T=USR iv160 a 
| 2346 UNPLOT C(18) .C(11) Cc 
aaio Ir Gios/-UAL “or THEN GOTO | 
asa IF Gina) URL “er THEN GOSUE , 
£0 IF Ct29)=VAL ns cora 
DI29) =UAL “soro 
soro 


pat 





Song: 






SORO 


Dn 
sa 


Goro 


fo du fun fudtigr 


COLA o pa pe pa pá 















pata 
POONOOEU NO 
Ir 













q e pr e O O RO O di e NC) GL (A PAO mm 
dee a et 


o JOD ais ia MME nd 
e SS QU pa e 





qua. 


pç po 
inn poe 
RO-DPRO GUI 


tu: 





muto 
ei 





sp” 





oo 
vei 
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as IF. INKEVS="N" THEN 


gs goto assa 
1) Baue éra 16, O; “OR. s 


esa 1 ABS Cidg)+8 THEN ver 


3240 LET C(3) =C(3)- 29 

o C(3) VAL “OU nc “corto 
3290 L. eo a 
5558 Soto 

 BOSUB 8200 

PRINT SOGCE PREFERE APENA 
PRINT “A FASE e ATERRIS G 
















PRINT 
ger Aus 
LET dustia 


PDIRECRO. “si 
7150 
US 








vs="s" se ENO 
NKEY S="NT THEN 

































no 
RN 
- P& 
nao 
Ne 
T P$ 
E : 
se 
E 
pé to, 
Piza) 
nino Ca 
 Páitá) ta) : 
- p&(18) Betis E &ê) 
à Pá (39): E: E patas) 
 p$tio) =p pg tda 
Pa(go) sPSios, p&c125 
| P$ELIAS) = oi E 1DS 
PE(1S) =pacii pa So 
 P$ (51) =p$cio  P$I5ss) 
PSt4i) spgtss PEtcE) 
NT CUOCE DESE: - P&tvo) 
“OS EFEITOS e E] 2s) 
e E - Pétas) 
Ba) à P$ (SE) 
(4a - Pê 
cão: - BE rso) 
E F Ps(cioi 
P$tas) 
$= Ea 28) 
ca “Paige, 





ss 
89 









ses e Gts cuaL ac 
s6d1 IF “C(19) +X (BN) 
<1506 THEN GOTO 3626 
aEdgo, IF Elos case (vd 


CE tas) VAL | 






OT Da 
Seis Mi, árie3 
sesa uu XB.VB 
mess RLO E 
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“QUASE NR BEIRA DA PISTA” 

5225 PRINT 

5250 IE ABS Ctio) 3708 THEN PRIN 
T “UOCE QUASE ao DR PISTAS 
6290 GOTA 688 

362 PRINT SBêcE TAXIOU PARA FOR. 
A DA PISTA” 








USR 15305 
LET T=USR 19250 
7134 IF C(3)sUVAL “a THEN Goto 7 
is CtD)42+C (7) <99 THEN GOTO 


7200 IF Ci29) =UAL “O” THEN cota 


sy 

[o 

ad 

s 

é 
SARIZNO O og0ono 








zias 

7524 LET Cias) 25) »3854 

7582 LET Ciia 16) 2.653 

7524 LET Cto6 26) ».63 

zsãa LET Cisl cao 

7552 LET Ctia: IoI+ÕAL “EU 
"570 LET C(io 191 -69589-X (BN 
ZS72 LET ciato 209) «6858 -Y (EN) 


590 GOTO 800a 

7700 IF C(S)<50 THEN GoTO 7719 
7708 LET Ses DERNFoRIO. 

7799 GUTO Seca 

ria IE C(St o GOTO 7740 





20) <54 THEN GOTO qoso. 
2 LET XgE=REROPORTO” 
GoTo Sosa : 
IF G(12i:=VAL “Ss THEN GOTO 





a] 

a 

[é] 

to 

E 

m 

A 

nm 
epa pat) sto 
=p IM BIo 


a 
900 IF CíSa URL. 
rola IF CíiS! cLALl 


7920 GOTO 7180 É 


. Goto 2900 
PRINT AT? 





"II10-C (121 


“as 
eme 


“16º THEN Goro 


“THEN Goto & 
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BOR BD) DIMEN," 


8258 PRINT 
PRINT 


AA mc AA 
GEO acacÕ O a 


MOTOR E TREM E MEN 


snum. FenecOL 
Pecas BS) ES 
MA ma se 








EE 
RETO 


LMUZAXLADAVZSVADE 
ED em Rm AR mA E ARE A mad 


BSxUZD 


A rm CJ a sa O e 
PRO dt co td PÇ e qt 2 99 1 af (A 


& 


E tee A AD SE mt a 
o 
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Irmpreseo emttset 


veia Bogaor, 64 

“Via des Mercês” São Pado 
Fone: Gta 028S 

CEP ouzos 


com mas ormecidos poi ir 





